perm filename SQRT.LIB[WHT,LSP] blob sn#725924 filedate 1984-05-12 generic text, type T, neo UTF8
@Marker(Library, Sqrt, Dover)

@Comment<@style(ScriptPush False)>
@define(sqf, font squarerootfont, facecode r, script +1pts)
@define(ulin, underline all, tabexport on, script +.80line)
@define(olin, tabexport on, script -.80line)
@TextForm(sqrt="@sqf[A]@hsp(-1.4pts)@enter(ulin)@hsp(+1pts)@enter(olin)@}
	@parm(text)@hsp(+4pts)@leave(olin)@leave(ulin)@hsp(1.5pts)")

@define(sqg, font squarerootfont, facecode r, script +1.7pts)
@define(uline, underline all, tabexport on, script +.90line)
@define(oline, tabexport on, script -.90line)
@TextForm(BigSqrt="@sqg[A]@hsp(-1.4pts)@enter(uline)@hsp(+1pts)@}
	@enter(oline)@parm(text)@hsp(+4pts)@leave(oline)@leave(uline)@}
	@hsp(1.5pts)")